home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / HIDE PROGRAM NAME.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  27 lines
  1. 100  REM *******************
  2. 110  REM *     HIDE !      *
  3. 120  REM *  MARK CAPELLA   *
  4. 130  REM *   07.07.79      *
  5. 140  REM *******************
  6. 150  HOME : LIST 100,140
  7. 160 D$ =  CHR$(13) + CHR$(4): ONERR  GOTO 310
  8. 170  PRINT "(...HIDE...)": FOR I = 1 TO 1000
  9. 180  PRINT D$"CATALOG"
  10. 190  PRINT : INVERSE : PRINT FI$;E$: NORMAL : PRINT : PRINT "(H)IDE, (R)ECOVER, (E)ND : ";: GET C$
  11. 200  IF C$ =  CHR$(3)  OR C$ = "E" GOTO 340
  12. 210  IF C$ = "C"  THEN 180
  13. 220  IF C$ < >"R"  AND C$ < >"H"  THEN 190
  14. 230  PRINT : INPUT "WHAT IS THE FILE NAME :";FI$: IF FI$ = ""  THEN 190
  15. 240  IF  LEN(FI$) >11  THEN  PRINT "FILE LENGTH MUST BE LESS THAN 11 CHRS ": PRINT : GOTO 190
  16. 250 F2$ = FI$: FOR I =  LEN(FI$) +1 TO 30:F2$ = F2$ + CHR$(8): NEXT 
  17. 260 ERR = 0: IF C$ = "H"  THEN 290
  18. 270  IF ERR = 0  THEN  PRINT D$"RENAME"F2$","FI$:E$ = " NOW RECOVERED"
  19. 280  GOTO 190
  20. 290  IF ERR = 0  THEN  PRINT D$"RENAME"FI$","F2$:E$ = " NOW HIDDEN"
  21. 300  GOTO 190
  22. 310  IF  PEEK(222) = 6  THEN  PRINT : PRINT "FILE NOT FOUND !":ERR = 1: RESUME 
  23. 320  IF  PEEK(222) = 255  THEN 340
  24. 330  HOME : VTAB 3: PRINT "UNEXPECTED ERROR <CTRL-G>!": PRINT : POKE 216,0: RESUME 
  25. 340  INVERSE : HOME : VTAB 10: HTAB 12: IF E$ = ""  THEN  PRINT "PROGRAM ENDED": GOTO 360
  26. 350  PRINT FI$" IS "E$
  27. 360  NORMAL : VTAB 2: END